home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
R-Shows
/
(c)expo88a.d64
/
turb_vdos gen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
8KB
|
13 lines
100 PRINT "TURBOLOAD/VDOS CREATOR..."
110 OPEN 15,8,15:POKE 252,100:POKE253,09
120 DATA !,!.INSTRUCTIONS,END
130 READ F$:IF F$="END" GOTO 200
140 PRINT "CREATING FILE ";CHR$(34);F$;CHR$(34)
150 OPEN 8,8,8,"0:"+F$+",P,W"
160 INPUT#15,E,E$,E1,E2:IF E THEN PRINT E$
170 SYS 2375
180 INPUT#15,E,E$,E1,E2:IF E THEN PRINT E$
190 CLOSE 8:GOTO 130
200 CLOSE 15
210 PRINT "BE SURE TO READ THE INSTRUCTION FILE!"